﻿Option Explicit On

Imports System.Windows.Controls.Canvas

Public Class clsOutput
    Inherits shpPort

    Public Sub New(ByVal ancestor As Object, ByVal key As String)
        Dim pnt As New PointCollection(), shp As New Ellipse()
        Init(ancestor, key)
        m_Type = c_Output
        shp.Fill = ColorOutput
        shp.Stroke = ColorStroke
        shp.StrokeThickness = 1
        shp.Width = c_PortWidth
        shp.Height = c_PortHeight
        m_Shape = shp
        Container.Children.Add(m_Shape)
        m_Label.Text = "Output"
        m_Label.MoveShape(20, 20)
    End Sub
End Class